home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
User's Choice Windows CD
/
User's Choice Windows CD (CMS Software)(1993).iso
/
utility3
/
vbawk.zip
/
INDEXTAB.FRM
< prev
next >
Wrap
Text File
|
1993-07-21
|
7KB
|
215 lines
VERSION 2.00
Begin Form IndexTab
BackColor = &H00C0C0C0&
Caption = "IndexTab Demo"
Height = 6015
Left = 1785
LinkTopic = "Form2"
ScaleHeight = 5550
ScaleWidth = 7485
Top = 810
Width = 7665
Begin VideoSoftElastic VSElastic1
Align = 5 'Fill Container
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 2 'Raised Outlined
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 4995
Left = 0
Splitter = 0 'No
TabIndex = 0
Top = 0
Width = 7485
Begin VideoSoftIndexTab VSIndexTab1
AutoScroll = -1 'True
AutoSwitch = -1 'True
BackColor = &H00C0C0C0&
BackTabColor = &H00FFFFFF&
Caption = " Tab 1| Tab 2 | Tab 3 "
CurrTab = 0
FirstTab = 0
FontBold = -1 'True
FontItalic = 0 'False
FontName = "Arial"
FontSize = 13.5
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
FrontTabColor = &H00C0C0C0&
Height = 4815
Index = 0
Left = 90
Position = 2 'Left (True Type fonts only)
Style = 2 'Rounded
TabIndex = 1
Top = 90
Width = 7305
Begin TextBox Text2
BorderStyle = 0 'None
Height = 1500
Left = 990
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Text = "Plain text box - Text2"
Top = 2655
Width = 5325
End
Begin VideoSoftElastic VSElastic2
Align = 0 'None
AutoSizeChildren= 2 'Uneven Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 0 'None
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 2040
Left = 900
Splitter = 0 'No
TabIndex = 2
Top = 315
Width = 5685
Begin TextBox Text1
BorderStyle = 0 'None
Height = 1860
Left = 90
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 3
Text = "Text Box inside an elastic box"
Top = 90
Width = 5505
End
End
End
End
Begin VideoSoftElastic StatusBar
Align = 2 'Align Bottom
AutoSizeChildren= 1 'Even Horizontally
BackColor = &H00C0C0C0&
BevelInner = 3 'Inset
BevelInnerWidth = 1
BevelOuter = 0 'None
BevelOuterWidth = 2
BorderWidth = 6
Caption = ""
CaptionPos = 1 'Left Center
ChildSpacing = 6
FloodColor = &H000000C0&
FloodDirection = 0 'None
FloodPercent = 0
Height = 555
Left = 0
Splitter = 0 'No
TabIndex = 5
Top = 4995
Width = 7485
Begin CommandButton Button
BackColor = &H00C0C0C0&
Caption = "&ForeColor"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 3
Left = 5625
TabIndex = 9
Top = 90
Width = 1770
End
Begin CommandButton Button
BackColor = &H00C0C0C0&
Caption = "&BackTabColor"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 2
Left = 3780
TabIndex = 8
Top = 90
Width = 1755
End
Begin CommandButton Button
BackColor = &H00C0C0C0&
Caption = "&Style"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 1
Left = 1935
TabIndex = 7
Top = 90
Width = 1755
End
Begin CommandButton Button
BackColor = &H00C0C0C0&
Caption = "&Position"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 375
Index = 0
Left = 90
TabIndex = 6
Top = 90
Width = 1755
End
End
End
Option Explicit
Sub Button_Click (Index As Integer)
Select Case Index
Case 0
VSindextab1(0).Position = (VSindextab1(0).Position + 1) Mod 4
Case 1
VSindextab1(0).Style = (VSindextab1(0).Style + 2) Mod 4
VSindextab1(0).Refresh
Case 2
VSindextab1(0).BackTabColor = QBColor(Rnd * 15)
Case 3
VSindextab1(0).ForeColor = QBColor(Rnd * 15)
VSindextab1(0).Refresh
End Select
End Sub
Sub Form_Resize ()
vselastic1.Top = 0
End Sub
Sub VSIndexTab1_GotFocus (Index As Integer)
button(0).SetFocus
End Sub